GS Eldrevne
biler
# Import
url <- paste0("https://bank.stat.gl/api/v1/", language, "/Greenland/EN/EN40/ENXMO5FU.px")
elbiler_raw <-
url |>
statgl_fetch(
time = px_all(),
category = px_all(),
.col_code = T
) |>
as_tibble()
# Transform
elbiler <-
elbiler_raw |>
filter(category != elbiler_raw[[1]][1])
# Plot
elbiler %>%
ggplot(aes(
x = time,
y = value,
fill = category
)) +
geom_col() +
theme_statgl() +
scale_fill_statgl(reverse = T) +
labs(
title = sdg13$figs$fig4$title[language],
y = sdg13$figs$fig4$y_lab[language],
x = " ",
fill = " ",
caption = sdg13$figs$fig4$cap[language]
)
StatBank